home *** CD-ROM | disk | FTP | other *** search
/ Mac OS on the PowerPC Mic…rocessor - In Store Demo / Mac OS on the PowerPC Microprocessor.iso / MacOS / MacOS.dxr / 00059.ls < prev    next >
Encoding:
Text File  |  1996-05-13  |  915 b   |  31 lines
  1. global gmasterfolderpath, gFileName, theQTMovie, gIntroMovieRect, gIntroMovieFlag, onIBM, gSoundLevel, gIntroText2, theBlitPict, gIntroPictRect, gKiosk, gQuick
  2.  
  3. on enterFrame
  4.   if gIntroPictRect <> EMPTY then
  5.     set pictfilepath to gmasterfolderpath & getProp(gFileName, #INTROP)
  6.     blitPictDrawFile(theBlitPict, pictfilepath, gIntroPictRect, "copy", 0, 0)
  7.   end if
  8.   if gIntroMovieRect <> EMPTY then
  9.     set gIntroMovieFlag to 1
  10.     QTOpenMovie(theQTMovie, gmasterfolderpath & getProp(gFileName, #INTROM), gIntroMovieRect)
  11.     if the movieid of theQTMovie contains "Error" then
  12.       watchoff()
  13.       exit
  14.     end if
  15.     setSoundLevel()
  16.     QTSetCurrTime(theQTMovie, 0)
  17.     if gQuick then
  18.       QTPlay(theQTMovie)
  19.       set gIntroMovieFlag to 0
  20.     end if
  21.   else
  22.     set the text of cast 37 to gIntroText2
  23.     go("introPause")
  24.   end if
  25.   watchoff()
  26. end
  27.  
  28. on exitFrame
  29.   set the text of cast 37 to gIntroText2
  30. end
  31.